home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / default setup (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  147 lines
  1. 5 open3,8,3,"features":get#3,a$,a$,ns$:ns=val(ns$):close3
  2. 10 :
  3. 15 j=56320:poke53280,14:poke53281,1:print"[147][144]"
  4. 20 gosub 210
  5. 24 :
  6. 25 print"[147]"
  7. 26 print"[144] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  8. 30 forx=1to21:print" [221]                                    [221]"
  9. 35 next
  10. 40 print"[144] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 45 print"         [159][196]efault [211]etup"
  12. 50 print"           [156][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 55 print"[150] [217]our selections here are optional"
  14. 60 print"[150] [217]ou may change this to your taste."
  15. 65 :
  16. 70 mu$(1)=" [207][206] [146] ":mu$(0)="[150] [207][198][198] [146]"
  17. 75 sd$(1)="[195] [129][207][158] [204] [207] [210]    "
  18. 80 sd$(0)="[144][194][204][193][195][203][146] [152]& [144][215][200][201][212][197]"
  19. 85 :
  20. 90 a$(1)="         [212]oggle [205][213][211][201][195]          "
  21. 95 a$(2)="     [212]oggle [211][195][210][197][197][206] [196][201][211][208][204][193][217]     "
  22. 100 a$(3)="         [211][193][214][197] [196]efaults         "
  23. 105 a$(4)="             [209][213][201][212]              "
  24. 130 s$="                                  "
  25. 140 goto 1000
  26. 145 gosub 260 : rem are these ok
  27. 150 ifnot(ok)then25
  28. 155 :
  29. 160 gosub 475: rem current side
  30. 165 sb=si      : rem side booted
  31. 175 cs=1
  32. 180 gosub305 : rem write data to file
  33. 185 cs=cs+1    : rem on side cs
  34. 190 ifcs<=nsthen180
  35. 195 :
  36. 200 goto410 : rem put side sb in
  37. 205 :
  38. 210 rem get current setup
  39. 215 open15,8,15,"i0"
  40. 220 open3,8,4,"setup"
  41. 225 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  42. 230 mu=val(d$(6))
  43. 235 sd=val(d$(7))
  44. 240 close3:close15
  45. 245 return
  46. 250 :
  47. 255 :
  48. 260 rem these ok
  49. 265 :
  50. 270 print"[147][155]     [205]usic : "mu$(1+mu):print"     [155][211]creen [196]isplay : "sd$(1+sd)
  51. 275 print" [193]re these settings what you want ([217]/[206])?"
  52. 280 poke198,0:wait198,1:geta$
  53. 285 ifa$<>"y"anda$<>"n"then280
  54. 290 ifa$="y"thenok=-1
  55. 295 ifa$="n"thenok=0
  56. 300 return
  57. 305 rem  write data to disk
  58. 310 print"[147]":poke53281,6:poke53280,6
  59. 315 print"  [208]lease place [211][201][196][197] #"cs"of [158][204][207][193][196][211][212][193][210] in"
  60. 320 print"     the drive and press [210][197][212][213][210][206]."
  61. 325 poke198,0:wait198,1:geta$:ifa$<>chr$(13) then325
  62. 330 gosub475: rem what side is it?
  63. 335 ifsi=csthen355
  64. 340 print"[153]      ***   [211]ide #"cs"not found!   [153]*** "
  65. 345 fordl=1to2000:next:goto305
  66. 350 :
  67. 355 rem  ok, write data
  68. 360 open15,8,15,"i0"
  69. 365 d$(7)="0":ifsd=-1thend$(7)="-1"
  70. 370 d$(6)="0":ifmu=-1thend$(6)="-1"
  71. 375 open3,8,4,"setup":cr$=chr$(13)
  72. 380 print#15,"p"chr$(0)"";
  73. 385 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  74. 390 close3:close15
  75. 395 return
  76. 400 :
  77. 405 end
  78. 410 rem  put side one back in
  79. 415 print"[147]":poke53281,6:poke53280,6
  80. 420 print"  [208]lease place side"ns"of [158][204][207][193][196][211][212][193][210] in"
  81. 425 print" your drive and press [[211][208][193][195][197]] to return"
  82. 430 print" to the [204][207][193][196][211][212][193][210] menu.":poke198,.
  83. 435 geta$:ifa$<>" "then435
  84. 440 gosub475: rem what side is it?
  85. 445 ifsi=1then465
  86. 450 print"[153]     ***   [211]ide # 1 not found!   [153]*** "
  87. 455 fordl=1to2000:next:goto410
  88. 460 :
  89. 465 goto555 : rem connect back
  90. 470 :
  91. 475 rem read current side
  92. 480 open15,8,15,"i0":close15
  93. 485 open2,8,2,"$"
  94. 490 fori=0to156:get#2,a$:next
  95. 495 get#2,a$:si=val(a$):close2
  96. 500 return
  97. 505 print""
  98. 506 print"                      [146]"
  99. 507 print" [196]o you wish to quit? [151] [146]"
  100. 508 print"                      [151] [146]"
  101. 509 print"     [217])es [207][210] [206])o      [151] [146]"
  102. 510 print"                      [151] [146]"
  103. 512 print"[151]                      [146]"
  104. 515 a=peek(203):ifa<>25anda<>39then515
  105. 520 ifa=39 then 26
  106. 525 goto555
  107. 530 rem same background and text
  108. 535 poke53281,1:print"[147][144]   [215]hy did you pick the same color for"
  109. 540 print"    the [194][193][195][203][199][210][207][213][206][196] and the [212][197][216][212]???"
  110. 545 print"          [212]ry picking again..."
  111. 550 fordl=1to3200:next:return
  112. 555 rem  return to customize menu
  113. 560 rem -- boot that there program --
  114. 561 poke53281,6:poke53280,6
  115. 562 print"[147]       [208]lease [215]ait [215]hile [204]oading..."
  116. 563 poke646,peek(53281)
  117. 565 print"[147]load"chr$(34)"custom ls boot"chr$(34)",8":print"run"
  118. 570 poke631,13:poke632,13:poke198,2:end
  119. 1000 :
  120. 1005 print"";
  121. 1015 poke53280,14:poke53281,1
  122. 1035 p$="[144]"
  123. 1036 sg$=" [155][211]creen [196]isplay :"
  124. 1037 mg$=" [155][205]usic [211]tatus   :"
  125. 1040 printsg$sd$(1+sd):printmg$mu$(1+mu):printp$;:forx=1to4
  126. 1045 printa$(x)chr$(13)s$
  127. 1050 next:x=1:gosub1055:goto1070
  128. 1055 pt$="[154]"+a$(x)+"[146][155][187]"
  129. 1060 pt$=pt$+chr$(13)+"[155][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  130. 1065 return
  131. 1070 printp$pt$
  132. 1075 geta$:ifa$=""then1075
  133. 1080 if(a$=""ora$="[157]")and(x<4)thena=1:goto 1100
  134. 1085 if(a$="[145]"ora$="")and(x>1)thena=-1:goto 1100
  135. 1090 ifa$=chr$(13) then 1130
  136. 1095 goto 1075
  137. 1100 printp$"[144]"a$(x)" "chr$(13)s$
  138. 1105 ifa=1 then p$=p$+""
  139. 1110 ifa<1 then p$=left$(p$,len(p$)-2)
  140. 1115 x=x+a:gosub 1055
  141. 1120 goto 1070
  142. 1130 ifx=1thenmu=not(mu):printmg$;mu$(1+mu)
  143. 1140 ifx=2thensd=not(sd):printsg$;sd$(1+sd)
  144. 1145 ifx=3 then 145
  145. 1150 ifx=4 then 505
  146. 1160 goto 1075
  147.